home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / C and C++ / Libraries / excel 2.2 serial library ƒ / Serial Library Source Code / absorb_echo.c next >
Encoding:
Text File  |  1989-07-27  |  1.2 KB  |  45 lines  |  [TEXT/MPS ]
  1. /***********************************************************************/
  2. /*    
  3. /*    absorb_echo.c
  4. /*    by Atul Butte
  5. /*    Copyright © 1989 by Microsoft Corporation
  6. /*    All Rights Reserved
  7. /*
  8. /*    version 1.0
  9. /*    
  10. /*    
  11. /*    This module provides a routine which will absorb a character
  12. /*    sent from the host.
  13. /*    
  14. /***********************************************************************/
  15.  
  16. /***********************************************************************/
  17. /*
  18. /*    absorb_echo
  19. /*
  20. /***********************************************************************/
  21.  
  22. OSErr absorb_echo( refIn, chCompare )
  23.  
  24.     short                    refIn;                    /* reference number for input port */
  25.     char                    chCompare;                /* character to compare against echo */
  26.     
  27. {
  28.     OSErr                    err;                    /* result code from Toolbox routines */
  29.     ParamBlockRec            param;                    /* parameter block for read/write */
  30.     char                    ch;                        /* input character for echo */
  31.     
  32.     param.ioParam.ioReqCount = 1;
  33.     param.ioParam.ioBuffer = &ch;
  34.     param.ioParam.ioRefNum = refIn;
  35.     err = PBRead( ¶m, false );
  36.     if( err != noErr ) {
  37.         return( errSerialRead );
  38.     }
  39.     if( ch != chCompare ) {
  40.         display_error( "Echoed character does not match character sent." );
  41.     }
  42.     return( noErr );
  43. }
  44.  
  45.